home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / SURVIE.BIN / SURVIE V2.2E (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  18.3 KB  |  228 lines
  1. 110 POKE53272,27:POKE53280,12:POKE53281,15:GOSUB1490:GOSUB940
  2. 120 SYS50657:POKE53265,0:SYS50900:SYS50088:SYS52401
  3. 130 PRINT"[144][147]":POKE53265,27
  4. 140 G=0:POKE32384,0:
  5. 150 SYS51610:SYS50120
  6. 160 GOSUB390:PRINT"                              ":GOSUB330
  7. 170 SYS50120:SYS50922:POKE53264,0
  8. 180 SYS50950
  9. 181 IFPEEK(203)=33THENSYS50988:GOSUB4000
  10. 182 IFPEEK(203)=36THENSYS51025:GOSUB4000
  11. 183 IFPEEK(203)=34THENSYS51064:GOSUB4000
  12. 184 IFPEEK(203)=37THENSYS51101:GOSUB4000
  13. 185 IFPEEK(203)<>60THENGOTO180
  14. 189 POKE53269,0:SYS50090:SYS50150:GOSUB3000
  15. 190 POKE992,0:SYS50090:SYS51636
  16. 200 G=PEEK(880)+PEEK(881)*256
  17. 210 IFPEEK(897)=1THENPOKE897,0:GOTO140
  18. 220 IFPEEK(897)=2THENPOKE897,0:GOSUB320:POKE992,1:SYS51808:POKE992,0:GOTO210
  19. 230 IFPEEK(897)=3THENPOKE897,0:GOSUB1700:GOTO140
  20. 240 IFPEEK(836)=1THENGOSUB300
  21. 250 IFPEEK(836)=2THENGOSUB270
  22. 260 GOTO370
  23. 270 PRINT"[211]TABLE CONFIGURATION AT GENERATION"G-1:RETURN
  24. 300 PRINT"[214]ANISHED AT GENERATION"G:RETURN
  25. 320 PRINT"[207]UT OF BOUNDS AT GENERATION"G
  26. 322 FORT=1TO1500:NEXT
  27. 323 IFPEEK(653)=0THENPRINT"[197]NGAGE [219][211]HIFT LOCK[220][145][145]":GOTO323
  28. 324 SYS50677:POKE865,0:RETURN
  29. 330 PRINT"[144][211]PEED (1-9)"
  30. 340 GETE$:IFE$<CHR$(33)ORE$>CHR$(41)ANDE$<CHR$(49)ORE$>CHR$(57)THEN340
  31. 350 E=ASC(E$):IFPEEK(653)=1THENE=E+16
  32. 360 E=57-E:POKE898,E:RETURN
  33. 370 PRINT"PRESS SPACE BAR[145][145][145]"
  34. 375 IFPEEK(203)<>60THENGOSUB5000:GOTO370
  35. 380 POKE646,0:GOTO140
  36. 390 POKE198,0:IFZ=1THENZ=0:RETURN
  37. 400 PRINT"[197]RASE SCREEN ([217][255][206])&"
  38. 410 GETA$:IFA$=""THEN410
  39. 420 IFA$="H"ORA$="[200]"THENGOSUB940:GOTO400
  40. 430 IFA$="Y"ORA$="[217]"THENSYS50902:SYS50090:GOTO480
  41. 440 PRINT"[211]AVE SCREEN ([217][255][206])&             "
  42. 450 GETA$:IFA$=""THEN450
  43. 460 IFA$="H"ORA$="[200]"THENGOSUB940:GOTO440
  44. 470 IFA$="Y"ORA$="[217]"THENGOSUB530
  45. 480 PRINT"[204]OAD A SCREEN ([217][255][206])&           "
  46. 490 GETA$:IFA$=""THEN490
  47. 500 IFA$="H"ORA$="[200]"THENGOSUB940:GOTO480
  48. 510 IFA$="Y"ORA$="[217]"THENPRINT"[147]":GOSUB630:SYS50120
  49. 520 RETURN
  50. 530 GOSUB740:PRINT"[147][206]AME&                              "
  51. 540 PRINT"                                              [145][145]"
  52. 550 SYS52872:OPEN50,0:INPUT#50,NN$:CLOSE50:SYS53181
  53. 560 IFLEN(NN$)>15THENPRINT"[208]LESE NOT MORE THAN 15 CHARACTERS":FORT=1TO1000:NEXT:GOTO530
  54. 570 PRINT"";NN$"                     "
  55. 580 PRINT"                              "
  56. 590 NN$="[209]"+NN$:FORT=146TO151:POKET,0:NEXT
  57. 600 OPEN15,8,15,"I0"
  58. 610 POKE146,0:SYS57812NN$,8:POKE193,0:POKE194,148:POKE174,0:POKE175,152:SYS62954
  59. 620 GOSUB 910:RETURN
  60. 630 GOSUB740:PRINT"[206]AME OF SCREEN                     "
  61. 640 PRINT"[219][210]ETURN[220] FOR CATALOG":PRINT
  62. 650 SYS52872:OPEN50,0:NN$="":INPUT#50,NN$:CLOSE50:SYS53181
  63. 660 IFNN$=""THENCLOSE50:GOTO760
  64. 670 NN$="[209]"+NN$:NN=LEN(NN$):IFNN>16THEN630
  65. 680 POKE53204,NN:FORT=1TONN:TT=ASC(MID$(NN$,T,1)):POKE53225+T,TT:NEXT
  66. 690 FORT=146TO151:POKET,0:NEXT
  67. 700 OPEN15,8,15:POKE2,0:SYS53194:REM LOAD SCREEN
  68. 710 IFPEEK(2)=0THENCLOSE15:RETURN
  69. 720 IFPEEK(2)=4THENPRINT"*[206]O SUCH SCREEN!":FORT=1TO3000:NEXT
  70. 730 POKE2,0:GOSUB910:GOTO630
  71. 740 IFPEEK(653)=1THENPRINT"[210]ELEASE [219][211]HIFT LOCK[220]":GOTO740
  72. 750 PRINT"                            ":POKE198,0:RETURN
  73. 760 PRINT"[147][208]RESS [219][211]HIFT[220] TO SEE EACH TITLE
  74. 780 [153]"(null)RESS (null)(null)ETURN(null) TO CHOOSE A TITLE":[153]
  75. 790 [129]T[178]146[164]151:[151]T,0:[130]
  76. 800 [159]1,8,0,"$0":[151]33024,0
  77. 810 [158]32771
  78. 820 [139]ST[179][177]0[167][137]860
  79. 850 [139][194](653)[178]1[167]810
  80. 855 [161]N$:[139]N$[178]""[167]850
  81. 857 [139]N$[179][177][199](13)[167]850
  82. 860 [139][194](33024)[178]0[167][153]"(null)O SCREEN ON THIS DISK!":[160]1:[137]900
  83. 870 [153]"ONON":[159]50,0:[132]50,NN$:[160]1:[160]50:[137]670
  84. 900 [129]T[178]1[164]2000:[130]:[153]"ON                                ":[137]650
  85. 910 [132]15,EN$,EM$,ET$,ES$
  86. 920 [139]EN$[179][177]"00"[167][153]"LOAD"EN$","EM$","ET$","ES$:[129]T[178]1[164]2000:[130]
  87. 930 [160]15:[142]
  88. 940 [153]"LOADRIGHT$NSTRUCTIONS"
  89. 950 [153]"ATN.STOP (null)PEED 9 IS THE FASTEST."
  90. 960 [153]"PEEK.STOP (null)HE ORGANISM IS DRAWN WITH THE"
  91. 970 [153]"   JOYSTICK (PORT 2)."
  92. 980 [153]"   ASCIRE BUTTON IS USED TO ALTERNATIVELY"
  93. 990 [153]"   DRAW OR ERASE POINTS."
  94. 995 [153]"LEN.STOP ASCOR BETTER CONTROL, THE DRAWING"
  95. 997 [153]"   CURSOR MAY BE MOVED BY PRESSING"
  96. 998 [153]"   KEYS RIGHT$,(null),MID$ AND (null)"
  97. 1000 [153]"STR$.STOP (null)HEN DRAWING IS FINISHED, PRESS"
  98. 1010 [153]"   SPACE BAR TO BEGIN THE SIMULATION."
  99. 1020 [153]"   CHR$ENERATIONS APPEAR AT SPEED CHOSEN."
  100. 1030 [153]"VAL.STOP (null)O CONTROL THE SUCCESSION OF"
  101. 1040 [153]"   GENERATIONS, ENGAGE (null)(null)HIFT LOCK(null)."
  102. 1050 [153]"   (null)HEN PRESS SPACE BAR TO MOVE TO THE"
  103. 1060 [153]"   NEXT GENERATION."
  104. 1065 [141]1460
  105. 1070 [153]"LOADASC.STOP (null)HE MEDIUM RESOLUTION ((null)(null))"
  106. 1080 [153]"   SCREEN IS 80 BY 50 POINTS."
  107. 1090 [153]"   (null)HE HIGH RESOLUTION (LEFT$(null))"
  108. 1100 [153]"   SCREEN IS 160 BY 100 POINTS."
  109. 1120 [153]"   (null)O SWITCH TO LEFT$(null) SCREEN= (null)ASC1(null)"
  110. 1130 [153]"   (null)O SWITCH TO (null)(null) SCREEN= (null)ASC7(null)"
  111. 1140 [153]"CHR$.STOP (null)HE GENERATION NUMBER APPEARS"
  112. 1150 [153]"   ONLY ON THE (null)(null)CLOSESCREEN."
  113. 1160 [153]"LEFT$.STOP (null)HE (null)(null) SCREEN MAY BE MOVED"
  114. 1170 [153]"   UP, DOWN, RIGHT AND LEFT WITH"
  115. 1180 [153]"   THE JOYSTICK."
  116. 1190 [153]"RIGHT$.STOP (null)RESS FIRE BUTTON AT ANY TIME"
  117. 1200 [153]"   TO STOP THE SIMULATION."
  118. 1210 [153]"MID$.STOP (null)RGANISMS MAY BE SAVED TO DISK."
  119. 1220 [153]"   RIGHT$T IS POSSIBLE TO LIST THE ORGANISMS"
  120. 1230 [153]"   SAVED TO DISK AND THEN LOAD BACK"
  121. 1240 [153]"   ANY OF THEM."
  122. 1250 [141]1460
  123. 1260 [153]"(null).STOP STR$URING THE SIMULATION, ANY PART"
  124. 1270 [153]"   OF THE ORGANISM MAY BE ISOLATED"
  125. 1280 [153]"   BY PRESSING (null)(null)(null).  (null)WO CURSORS"
  126. 1290 [153]"   THEN APPEAR ON THE SCREEN,"
  127. 1300 [153]"   ONE IN THE UPPER LEFT CORNER,"
  128. 1310 [153]"   THE OTHER IN THE LOWER RIGHT"
  129. 1320 [153]"   CORNER.  (null)ITH THE JOYSTICK, FIRST"
  130. 1330 [153]"   POSITION THE UPPER LEFT CURSOR TO"
  131. 1340 [153]"   LIMIT THE UPPER LEFT PART OF THE"
  132. 1350 [153]"   STRUCTURE TO ISOLATE.  (null)HEN PRESS"
  133. 1360 [153]"   FIRE BUTTON TO FREEZE THE LEFT"
  134. 1370 [153]"   CURSOR.  (null)EPEAT THIS PROCEDURE"
  135. 1380 [153]"   WITH THE RIGHT CURSOR TO LIMIT THE"
  136. 1390 [153]"   LOWER RIGHT PART OF THE ORGANISM"
  137. 1400 [153]"   AND PRESS FIRE BUTTON.  ATNNY PART"
  138. 1410 [153]"   OF THE ORGANISM THAT IS OUTSIDE THE"
  139. 1420 [153]"   CURSORS WILL DISAPPEAR."
  140. 1440 [153]"(null).STOP (null)RESS (null)LEFT$(null) TO SEE THESE INSTRUCTIONS"
  141. 1450 [153]"   AGAIN AT ANY PROMPT OF THE PROGRAM.
  142. 1460 PRINT"[208]RESS SPACE BAR[145][145][145]"
  143. 1470 GETA$:IFA$=""THENGOSUB5000:GOTO1460
  144. 1480 PRINT"[147]":RETURN
  145. 1490 PRINT"[147]":POKE53265,27:FORT=1TO500:NEXT:SYS52550:POKE53293,15
  146. 1500 POKE2046,252:POKE2046,253:POKE53260,198:POKE53261,65:POKE53269,127
  147. 1510 POKE53265,27:FORT=53287TO53292:POKET,6:NEXT:SYS52661:FORT=1TO1000:NEXT
  148. 1520 POKE53293,6:SYS52833
  149. 1530 POKE2046,253:FORT=1TO20:NEXT:POKE2046,252:FORT=1TO500:NEXT
  150. 1540 PRINT"[144][214]2.2"
  151. 1550 PRINT"[195]LAUDE [205]ARCHAND"
  152. 1560 PRINT"C 1983,1987"
  153. 1570 PRINT"[211]IMULATION ON THE [195]OMMODORE 64
  154. 1580 [153]"OF THE GAME '(null)IFE'"
  155. 1590 [153]"CREATED BY MID$OHN LEFT$ORTON LENONWAY"
  156. 1600 [129]T[178]1[164]7000:[130]:[151]198,0
  157. 1610 [153]"STOPLOADLENLAUDE (null)ARCHAND"
  158. 1620 [153]"114 DES ASCAUVETTES"
  159. 1630 [153]"(null)T-PEEKASILE-LE-CHR$RAND"
  160. 1640 [153]"(null)U/BEC (LENANADA)"
  161. 1650 [153]"MID$0(null) 1(null)0"
  162. 1660 [153]"(819)653-5539"
  163. 1670 [141]6000
  164. 1680 [161]A$:[139]A$[178]""[167][141]5000:[137]1670
  165. 1690 [151]53269,0:[151]54296,0:[142]
  166. 1700 [158]50677:V[178]53248:[151]2040,158:[151]2041,159
  167. 1710 [151]V[170]39,6:[151]V[170]40,6:[151]V[170]16,2
  168. 1720 X1[178]24:Y1[178]50:X2[178]80:Y2[178]242
  169. 1730 [151]V,X1:[151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]21,3
  170. 1740 [151]V[170]39,6
  171. 1750 [139][194](3)[178]1[167][139]Y1[177]50[167]Y1[178]Y1[171]8
  172. 1760 [139][194](3)[178]2[167][139]Y1[179]237[167]Y1[178]Y1[170]8
  173. 1770 [139][194](3)[178]4[167][141]1820
  174. 1780 [139][194](3)[178]8[167][141]1870
  175. 1790 [139][194](3)[178]16[167][129]T[178]1[164]500:[130]:[137]1920
  176. 1800 [151]V[170]39,14
  177. 1810 [151]V,X1:[151]V[170]1,Y1:[137]1740
  178. 1820 [139][194](V[170]16)[178]2[176][194](V[170]16)[178]0[167][139]X1[177]24[167]X1[178]X1[171]8:[142]
  179. 1830 [139][194](V[170]16)[178]2[176][194](V[170]16)[178]0[167][142]
  180. 1840 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]1[167][139]X1[177]8[167]X1[178]X1[171]8:[142]
  181. 1850 [139][194](V[170]16)[178]3[167][151]V[170]16,2:X1[178]248:[142]
  182. 1860 [139][194](V[170]16)[178]1[167][151]V[170]16,0:X1[178]248:[142]
  183. 1870 [139][194](V[170]16)[178]2[176][194](V[170]16)[178]0[167][139]X1[179]248[167]X1[178]X1[170]8:[142]
  184. 1880 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]1[167][139]X1[179]75[167]X1[178]X1[170]8:[142]
  185. 1890 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]1[167][142]
  186. 1900 [139][194](V[170]16)[178]2[167][151]V[170]16,3:X1[178]0:[142]
  187. 1910 [139][194](V[170]16)[178]0[167][151]V[170]16,1:X1[178]0:[142]
  188. 1920 [151]V[170]40,6
  189. 1930 [139][194](3)[178]1[167][139]Y2[177]50[167]Y2[178]Y2[171]8
  190. 1940 [139][194](3)[178]2[167][139]Y2[179]242[167]Y2[178]Y2[170]8
  191. 1950 [139][194](3)[178]4[167][141]2000
  192. 1960 [139][194](3)[178]8[167][141]2050
  193. 1970 [139][194](3)[178]16[167][137]2100
  194. 1980 [151]V[170]40,14
  195. 1990 [151]V[170]2,X2:[151]V[170]3,Y2:[137]1920
  196. 2000 [139][194](V[170]16)[178]1[176][194](V[170]16)[178]0[167][139]X2[177]24[167]X2[178]X2[171]8:[142]
  197. 2010 [139][194](V[170]16)[178]1[176][194](V[170]16)[178]0[167][142]
  198. 2020 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]2[167][139]X2[177]8[167]X2[178]X2[171]8:[142]
  199. 2030 [139][194](V[170]16)[178]3[167][151]V[170]16,1:X2[178]248:[142]
  200. 2040 [139][194](V[170]16)[178]2[167][151]V[170]16,0:X2[178]248:[142]
  201. 2050 [139][194](V[170]16)[178]1[176][194](V[170]16)[178]0[167][139]X2[179]248[167]X2[178]X2[170]8:[142]
  202. 2060 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]2[167][139]X2[179]75[167]X2[178]X2[170]8:[142]
  203. 2070 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]2[167][142]
  204. 2080 [139][194](V[170]16)[178]1[167][151]V[170]16,3:X2[178]0:[142]
  205. 2090 [139][194](V[170]16)[178]0[167][151]V[170]16,2:X2[178]0:[142]
  206. 2100 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]1[167]X1[178]X1[170]256
  207. 2110 [139][194](V[170]16)[178]3[176][194](V[170]16)[178]2[167]X2[178]X2[170]256
  208. 2120 X1[178]X1[173]8[171]3:Y1[178]Y1[173]8[171]6.25:X2[178]X2[173]8[171]3:Y2[178]Y2[173]8[171]6.25:AD[178]1024[170]Y1[172]40[170]X1
  209. 2130 [139]X2[179]X1[176]Y2[179]Y1[167][151]V[170]21,0:[137]1700
  210. 2140 [151]V[170]21,0:[151]V[170]16,0:Y[178]X2[171]X1:X[178]Y2[171]Y1:Y[178]Y[170]1:X[178]X[170]1
  211. 2150 HI[178][181](AD[173]256):LO[178]AD[171]256[172]HI
  212. 2160 [158]32880:[151]32901,LO:[151]32907,HI:[151]32918,X:[151]32927,Y:[158]32900
  213. 2170 [158]50120:[142]
  214. 3000 [153]"(null)OVE THE ORGANISM ON SCREEN WITH THE"
  215. 3010 [153]"JOYSTICK AND WHEN CENTERED PRESS BUTTON"
  216. 3015 [139][194](3)[178]0[167]3015
  217. 3020 [158]51442:[158]50677
  218. 3030 [139][194](3)[178]16[167][142]
  219. 3040 [137]3020
  220. 4000 [139][194](203)[179][177]64[167]4000
  221. 4010 [142]
  222. 5000 [139][194](646)[178]0[167][151]646,11:[142]
  223. 5010 [139][194](646)[178]11[167][151]646,0:[142]
  224. 5020 [142]
  225. 6000 [153]"(null)RESS ANY KEY"
  226. 6010 [153]"LENE LOGICIEL EXISTE /GALEMENT EN ASCRAN?AISONONON"
  227. 6020 [142]
  228.